object GetDirectory: TGetDirectory
  Left = 200
  Top = 108
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Get Full Path Name'
  ClientHeight = 183
  ClientWidth = 222
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 12
    Top = 8
    Width = 199
    Height = 137
  end
  object DriveComboBox1: TDriveComboBox
    Left = 23
    Top = 114
    Width = 138
    Height = 19
    TabOrder = 0
    OnChange = DriveComboBox1Change
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 23
    Top = 15
    Width = 176
    Height = 92
    ItemHeight = 16
    TabOrder = 1
  end
  object BitBtn1: TBitBtn
    Left = 34
    Top = 152
    Width = 71
    Height = 23
    TabOrder = 2
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 118
    Top = 152
    Width = 71
    Height = 23
    TabOrder = 3
    Kind = bkCancel
  end
  object Scaler1: TScaler
    PixelsPerInch = 96
    Xdevelop = 640
    Ydevelop = 480
    ClientWidth = 222
    ClientHeight = 183
    LimitScale = No
    ScaleRuntime = False
    Left = 176
    Top = 128
  end
end